home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 039a / nstext.zip / TESTTEXT.PAS < prev   
Pascal/Delphi Source File  |  1991-11-10  |  601b  |  38 lines
  1. Program TestText;
  2.  
  3. Uses
  4.     Strings,
  5.    WinCRT,
  6.     NS_Text;
  7.  
  8. Var
  9.     File1 : TTextFile;
  10.    aName:FileNameType;
  11.    ttext : String;
  12.  
  13. Begin
  14. {    StrCopy(aName, 'aa.pas');}
  15.  
  16.     File1.Init('a.pas' {aName}, NS_ReWrite);
  17.     File1.WriteLn('ABCd');
  18.  
  19.    File1.Append;
  20.    File1.WriteLn('ijkl');
  21.    File1.Writeln('nmop');
  22.  
  23.     File1.Reset;
  24.  
  25.    While Not File1.EOF Do
  26.        Begin
  27.           File1.ReadLn(ttext);
  28.       End;
  29.    {EndWhile}
  30.    writeln(file1.filename);
  31.    File1.ReName('aaa.pas');
  32.    writeln(file1.filename);
  33.    File1.Close;
  34.  
  35.    If (NOT TextOK) Then
  36.        WriteLn(TextError);
  37.    {EndIf}
  38. End.